﻿// Problem 1 
//
// Find the sum of all numbers less than 1000 divisble by 5 and 3
//
// Correct answer 233168
#light

let solve() = Set[0..5..999] |> Set.union (Set [0..3..999]) |> Seq.sum 


